The Mac 13/the-mac-13.iso/On The Rom/100 Best Mac CD-ROMs Selection/UNZIP-DEMO/ZIPFILES/cont/00005.ls

Text File | 1995-05-25 | 5.0 KB | 231 lines

on roll
  if soundBusy(1) = 0 then
    sound playFile 1, "conts1"
  end if
  if the mouseCast = the castNum of sprite 6 then
    go("p1")
  end if
  if the mouseCast = the castNum of sprite 7 then
    go("p2")
  end if
  if the mouseCast = the castNum of sprite 8 then
    go("p3")
  end if
  if the mouseCast = the castNum of sprite 9 then
    go("p4")
  end if
  if the mouseCast = the castNum of sprite 10 then
    go("p5")
  end if
  if the mouseCast = the castNum of sprite 11 then
    go("p6")
  end if
end

on roll1
  if soundBusy(1) = 0 then
    sound playFile 1, "conts1"
  end if
  if the mouseCast = the castNum of sprite 7 then
    go("p2")
  end if
  if the mouseCast = the castNum of sprite 8 then
    go("p3")
  end if
  if the mouseCast = the castNum of sprite 9 then
    go("p4")
  end if
  if the mouseCast = the castNum of sprite 10 then
    go("p5")
  end if
  if the mouseCast = the castNum of sprite 11 then
    go("p6")
  end if
  if the mouseCast = the castNum of sprite 13 then
    sound stop 1
    go("rol")
  end if
  if the mouseCast = the castNum of sprite 16 then
    sound stop 1
    go("rol")
  end if
end

on roll2
  if soundBusy(1) = 0 then
    sound playFile 1, "conts1"
  end if
  if the mouseCast = the castNum of sprite 6 then
    go("p1")
  end if
  if the mouseCast = the castNum of sprite 8 then
    go("p3")
  end if
  if the mouseCast = the castNum of sprite 9 then
    go("p4")
  end if
  if the mouseCast = the castNum of sprite 10 then
    go("p5")
  end if
  if the mouseCast = the castNum of sprite 11 then
    go("p6")
  end if
  if the mouseCast = the castNum of sprite 13 then
    sound stop 1
    go("rol")
  end if
  if the mouseCast = the castNum of sprite 16 then
    sound stop 1
    go("rol")
  end if
end

on roll3
  if soundBusy(1) = 0 then
    sound playFile 1, "conts1"
  end if
  if the mouseCast = the castNum of sprite 6 then
    go("p1")
  end if
  if the mouseCast = the castNum of sprite 7 then
    go("p2")
  end if
  if the mouseCast = the castNum of sprite 9 then
    go("p4")
  end if
  if the mouseCast = the castNum of sprite 10 then
    go("p5")
  end if
  if the mouseCast = the castNum of sprite 11 then
    go("p6")
  end if
  if the mouseCast = the castNum of sprite 13 then
    sound stop 1
    go("rol")
  end if
  if the mouseCast = the castNum of sprite 16 then
    sound stop 1
    go("rol")
  end if
end

on roll4
  if soundBusy(1) = 0 then
    sound playFile 1, "conts1"
  end if
  if the mouseCast = the castNum of sprite 6 then
    go("p1")
  end if
  if the mouseCast = the castNum of sprite 7 then
    go("p2")
  end if
  if the mouseCast = the castNum of sprite 8 then
    go("p3")
  end if
  if the mouseCast = the castNum of sprite 10 then
    go("p5")
  end if
  if the mouseCast = the castNum of sprite 11 then
    go("p6")
  end if
  if the mouseCast = the castNum of sprite 13 then
    sound stop 1
    go("rol")
  end if
  if the mouseCast = the castNum of sprite 16 then
    sound stop 1
    go("rol")
  end if
end

on roll5
  if soundBusy(1) = 0 then
    sound playFile 1, "conts1"
  end if
  if the mouseCast = the castNum of sprite 6 then
    go("p1")
  end if
  if the mouseCast = the castNum of sprite 7 then
    go("p2")
  end if
  if the mouseCast = the castNum of sprite 8 then
    go("p3")
  end if
  if the mouseCast = the castNum of sprite 9 then
    go("p4")
  end if
  if the mouseCast = the castNum of sprite 11 then
    go("p6")
  end if
  if the mouseCast = the castNum of sprite 13 then
    sound stop 1
    go("rol")
  end if
  if the mouseCast = the castNum of sprite 16 then
    sound stop 1
    go("rol")
  end if
end

on roll6
  if soundBusy(1) = 0 then
    sound playFile 1, "conts1"
  end if
  if the mouseCast = the castNum of sprite 6 then
    go("p1")
  end if
  if the mouseCast = the castNum of sprite 7 then
    go("p2")
  end if
  if the mouseCast = the castNum of sprite 8 then
    go("p3")
  end if
  if the mouseCast = the castNum of sprite 9 then
    go("p4")
  end if
  if the mouseCast = the castNum of sprite 10 then
    go("p5")
  end if
  if the mouseCast = the castNum of sprite 13 then
    sound stop 1
    go("rol")
  end if
  if the mouseCast = the castNum of sprite 16 then
    sound stop 1
    go("rol")
  end if
end

on eyerol
  set the locV of sprite 19 to the mouseV
  if the locV of sprite 19 > 330 then
    set the locV of sprite 19 to 330
  end if
  if the locV of sprite 19 < 313 then
    set the locV of sprite 19 to 313
  end if
  set the locH of sprite 19 to the mouseH - 20
  if the locH of sprite 19 > 170 then
    set the locH of sprite 19 to 170
  end if
  if the locH of sprite 19 < 140 then
    set the locH of sprite 19 to 140
  end if
  updateStage()
  set the locV of sprite 20 to the mouseV
  if the locV of sprite 20 > 329 then
    set the locV of sprite 20 to 329
  end if
  if the locV of sprite 20 < 310 then
    set the locV of sprite 20 to 310
  end if
  set the locH of sprite 20 to the mouseH + 20
  if the locH of sprite 20 > 300 then
    set the locH of sprite 20 to 300
  end if
  if the locH of sprite 20 < 270 then
    set the locH of sprite 20 to 270
  end if
  updateStage()
end